home *** CD-ROM | disk | FTP | other *** search
File List | 1992-01-19 | 459 b | 20 lines |
- PROCEDURE resolution(change%)
- LOCAL xa%
- IF resolution|=0
- resolution|=XBIOS(4)+1
- ENDIF
- xa%=XBIOS(4)+1
- CLS
- IF change%<3
- IF change%=0 AND xa%<>resolution|
- ~XBIOS(5,L:-1,L:-1,resolution|-1)
- SPOKE &H44C,resolution|-1
- SPOKE &H449,resolution|-1
- ELSE IF resolution|<>change% AND change%>0
- ~XBIOS(5,L:-1,L:-1,change%-1)
- SPOKE &H44C,change%-1
- SPOKE &H449,change%-1
- ENDIF
- ENDIF
- RETURN
-